home *** CD-ROM | disk | FTP | other *** search
/ Aminet 40 / Aminet 40 (2000)(Schatztruhe)[!][Dec 2000].iso / Aminet / dev / basic / PureBasic_Upd.lha / PureBasic_Update1.60 / PureBasic / Examples / Sources / Rainbow.pb < prev    next >
Encoding:
Text File  |  2000-09-10  |  529 b   |  36 lines
  1.  
  2.  If InitRainbow(0) And InitScreen(0)
  3.  
  4.    OpenScreen(0,320,256,4,0)
  5.    CreateRainbow(0,256)
  6.  
  7.    For c.l=0 To 255
  8.      RainbowColor(0, c.l, c.l*256*256+c.l*256+c.l)
  9.    Next c.l
  10.  
  11.    RainbowEnd(0)
  12.    ShowRainbow(0,ScreenID())
  13.  
  14.  
  15.    Repeat
  16.  
  17.      VWait()
  18.      mb.w=MouseButtons()
  19.  
  20.      If mb.w = 2 AND s.w = 0
  21.        HideRainbow(0) : s.w=1 
  22.        Delay(5) : mb.w=0
  23.      EndIf
  24.  
  25.      If mb.w = 2 AND s.w = 1
  26.        ShowRainbow(0,ScreenID()) : s.w=0
  27.        Delay(5)
  28.      EndIf
  29.  
  30.    Until mb.w = 3
  31.  
  32.  EndIf
  33.  
  34.  PrintN("End of Program.")
  35.  End
  36.